home *** CD-ROM | disk | FTP | other *** search
/ Amiga Packmags / NewsFlash - Issue 07 (1990-01)(UGA - 17-Bit Software)(Disk 1 of 2)[a intro].zip / NewsFlash - Issue 07 (1990-01)(UGA - 17-Bit Software)(Disk 1 of 2)[a intro].adf / sources / soundmon2.s < prev   
Text File  |  1996-12-24  |  13KB  |  678 lines
  1.     movem.l    d0/a7,-(a7)
  2.     bSET    #1,$bfe001
  3.  
  4. ******************************************
  5.     jsr    BS_INIT
  6. ******************************************
  7. killinterrupt:
  8.     move.l grabasis,a0
  9.     move.w #$4000,intena
  10.     move.l $6c,oldirq
  11.     bra    setirqcopper
  12. setirqcopper:
  13.     move.l    4,a6
  14.     lea    granaam,a1
  15.     jsr    -408(a6)
  16.     move.l    d0,grabasis
  17.     move.l    grabasis,a6
  18.     move.l    38(a6),oldcopperlist
  19.     move.l    4,a6
  20.     move.l    grabasis,a1
  21.     jsr    -414(a6)
  22.     move.l    #copper,cop1lch
  23.     move.w    #$4000,intena
  24.     move.w    #$0060,dmacon
  25.     move.w    #$8440,dmacon
  26. controlstart1:
  27.     cmp.b    #$00,vhposr
  28.     bne    controlstart1
  29. controlstart3:
  30.     cmp.b    #$10,vhposr
  31.     bne    controlstart3
  32.  
  33. ******************************************
  34.     jsr    BS_music
  35. ******************************************
  36.     btst    #6,ciaa001
  37.     beq    eind
  38.     jmp    controlstart1
  39.  
  40. eind:
  41.     move.l    oldcopperlist,cop1lch
  42.     move.w    #$000f,dmacon
  43.     move.w    #$8060,dmacon
  44.     move.w    #$c000,intena
  45. resumeinterrupt:
  46.     move.l grabasis,a0
  47.     move.l oldirq,$6c
  48.     move.w #$c000,intena
  49.     bclr    #1,$bfe001
  50.     move.l    #$19701972,$41000
  51.     movem.l    (a7)+,d0/a7
  52.     rts
  53.  
  54. ******************************************
  55. **    SOUNDMONITOR V2.0 PLAYROUTINE    **
  56. ******************************************
  57. BS_INIT:lea    BS_D17,a0
  58.     lea    BS_DATA,a1
  59.     clr.b    BS_D12
  60.     cmpi.w    #$562e,$001a(a1)
  61.     bne.l    BS_int1
  62.     cmpi.b    #$32,$001c(a1)
  63.     bne.l    BS_int1
  64.     move.b    $001d(a1),BS_D12
  65. BS_int1:move.l    #$00000200,d0
  66.     move.w    $001e(a1),d1
  67.     move.l    #$00000001,d2
  68.     mulu    #$0004,d1
  69.     subq.w    #$1,d1
  70. BS_int2:cmp.w    $00(a1,d0.l),d2
  71.     bge.l    BS_int3
  72.     move.w    $00(a1,d0.l),d2
  73. BS_int3:addq.l    #$4,d0
  74.     dbf    d1,BS_int2
  75.     move.w    $001e(a1),d1
  76.     mulu    #$0010,d1
  77.     move.l    #$00000200,d0
  78.     mulu    #$0030,d2
  79.     add.l    d2,d0
  80.     add.l    d1,d0
  81.     addi.l    #BS_DATA,d0
  82.     move.l    d0,BS_D14
  83.     clr.l    d1
  84.     move.b    BS_D12,d1
  85.     lsl.l    #$6,d1
  86.     add.l    d1,d0
  87.     move.l    #$0000000e,d1
  88.     adda.l    #$00000020,a1
  89. BS_int4:move.l    d0,(a0)+
  90.     cmpi.b    #-$01,(a1)
  91.     beq.l    BS_int5
  92.     move.w    $0018(a1),d2
  93.     mulu    #$0002,d2
  94.     add.l    d2,d0
  95. BS_int5:adda.l    #$00000020,a1
  96.     dbf    d1,BS_int4
  97.     rts    
  98.  
  99. BS_Music:dc.b    $48,$e7,$ff,$fe
  100.     bsr.l    BS_MS2
  101.     movem.l    (a7)+,d0-d7/a0-a6
  102.     moveq    #$00,d0
  103.     rts    
  104.  
  105. BS_MS2:    bsr.l    BS_MX7
  106.     subq.b    #$1,BS_D10
  107.     move.l    #$00000003,d0
  108.     lea    BS_D3,a0
  109.     move.l    #$00dff0a0,a1
  110. BS_MS3:    move.b    $000c(a0),d4
  111.     ext.w    d4
  112.     add.w    d4,(a0)
  113.     tst.b    $001e(a0)
  114.     bne.l    BS_MS4
  115.     move.w    (a0),$0006(a1)
  116. BS_MS4:    move.l    $0004(a0),(a1)
  117.     move.w    $0008(a0),$0004(a1)
  118.     tst.b    $000b(a0)
  119.     bne.l    BS_MS5
  120.     tst.b    $000d(a0)
  121.     beq.l    BS_MS8
  122. BS_MS5:    tst.b    BS_D10
  123.     bne.l    BS_MS6
  124.     move.b    $000b(a0),d3
  125.     move.b    $000d(a0),d4
  126.     andi.w    #$00f0,d4
  127.     andi.w    #$00f0,d3
  128.     lsr.w    #$4,d3
  129.     lsr.w    #$4,d4
  130.     add.w    d3,d4
  131.     add.b    $000a(a0),d4
  132.     bsr.l    BS_MX6
  133.     bra.l    BS_MS8
  134.  
  135. BS_MS6:    cmpi.b    #$01,BS_D10
  136.     bne.l    BS_MS7
  137.     move.b    $000b(a0),d3
  138.     move.b    $000d(a0),d4
  139.     andi.w    #$000f,d3
  140.     andi.w    #$000f,d4
  141.     add.w    d3,d4
  142.     add.b    $000a(a0),d4
  143.     bsr.l    BS_MX6
  144.     bra.l    BS_MS8
  145.  
  146. BS_MS7:    move.b    $000a(a0),d4
  147.     bsr.l    BS_MX6
  148. BS_MS8:    lea    $0010(a1),a1
  149.     lea    $0020(a0),a0
  150.     dbf    d0,BS_MS3
  151.     tst.b    BS_D10
  152.     bne.l    BS_MS9
  153.     move.b    #$03,BS_D10
  154. BS_MS9:    subq.b    #$1,BS_D8
  155.     beq.l    BS_MT1
  156.     rts    
  157.  
  158. BS_MT1:    move.b    BS_D9,BS_D8
  159.     bsr.l    BS_MU1
  160.     move.w    BS_D13,$00dff096
  161.     move.l    #$000001f4,d0
  162. BS_MT2:    dbf    d0,BS_MT2
  163.     move.l    #$00000003,d0
  164.     move.l    #$00dff0a0,a1
  165.     move.w    #$0001,d1
  166.     lea    BS_D3,a2
  167.     lea    BS_D15,a5
  168. BS_MT3:    btst    #$07,(a2)
  169.     beq.l    BS_MT4
  170.     bsr.l    BS_MW3
  171. BS_MT4:    asl.w    #$1,d1
  172.     lea    $0010(a1),a1
  173.     lea    $0020(a2),a2
  174.     lea    $0024(a5),a5
  175.     dbf    d0,BS_MT3
  176.     rts    
  177.  
  178. BS_MU1:    clr.w    BS_D13
  179.     lea    BS_DATA,a0
  180.     move.l    #$00dff0a0,a3
  181.     move.l    #$00000003,d0
  182.     move.w    #$0001,d7
  183.     lea    BS_D3,a1
  184. BS_MU2:    clr.l    d1
  185.     move.w    BS_D4,d1
  186.     lsl.w    #$4,d1
  187.     move.l    d0,d2
  188.     lsl.l    #$2,d2
  189.     add.l    d2,d1
  190.     addi.l    #$00000200,d1
  191.     move.w    $00(a0,d1.l),d2
  192.     move.b    $02(a0,d1.l),BS_D6
  193.     move.b    $03(a0,d1.l),BS_D7
  194.     subq.w    #$1,d2
  195.     mulu    #$0030,d2
  196.     clr.l    d3
  197.     move.w    $001e(a0),d3
  198.     lsl.w    #$4,d3
  199.     add.l    d2,d3
  200.     move.l    #$00000200,d4
  201.     move.b    BS_D5,d4
  202.     add.l    d3,d4
  203.     move.l    d4,a2
  204.     adda.l    a0,a2
  205.     clr.l    d3
  206.     move.b    (a2),d3
  207.     tst.b    d3
  208.     bne.l    BS_MU3
  209.     bra.l    BS_MV0
  210.  
  211. BS_MU3:    clr.w    $000c(a1)
  212.     move.b    $0001(a2),d4
  213.     andi.b    #$0f,d4
  214.     cmpi.b    #$0a,d4
  215.     bne.l    BS_MU4
  216.     move.b    $0002(a2),d4
  217.     andi.b    #-$10,d4
  218.     bne.l    BS_MU5
  219. BS_MU4:    add.b    BS_D7,d3
  220.     ext.w    d3
  221. BS_MU5:    move.b    d3,$000a(a1)
  222.     lea    BS_D16,a4
  223.     lsl.w    #$1,d3
  224.     move.w    -$02(a4,d3.w),(a1)
  225.     bset    #$07,(a1)
  226.     move.b    #-$01,$0002(a1)
  227.     clr.w    d3
  228.     move.b    $0001(a2),d3
  229.     lsr.b    #$4,d3
  230.     andi.b    #$0f,d3
  231.     tst.b    d3
  232.     bne.l    BS_MU6
  233.     move.b    $0003(a1),d3
  234. BS_MU6:    move.b    $0001(a2),d4
  235.     andi.b    #$0f,d4
  236.     cmpi.b    #$0a,d4
  237.     bne.l    BS_MU7
  238.     move.b    $0002(a2),d4
  239.     andi.b    #$0f,d4
  240.     bne.l    BS_MU8
  241. BS_MU7:    add.b    BS_D6,d3
  242. BS_MU8:    cmpi.w    #$0001,$0008(a1)
  243.     beq.l    BS_MU9
  244.     cmp.b    $0003(a1),d3
  245.     beq.l    BS_MV0
  246. BS_MU9:    move.b    d3,$0003(a1)
  247.     or.w    d7,BS_D13
  248. BS_MV0:    clr.l    d3
  249.     clr.l    d4
  250.     move.b    $0001(a2),d3
  251.     andi.b    #$0f,d3
  252.     move.b    $0002(a2),d4
  253.     cmpi.b    #$00,d3
  254.     bne.l    BS_MV1
  255.     move.b    d4,$000b(a1)
  256. BS_MV1:    cmpi.b    #$01,d3
  257.     bne.l    BS_MV2
  258.     move.w    d4,$0008(a3)
  259.     move.b    d4,$0002(a1)
  260. BS_MV2:    cmpi.b    #$02,d3
  261.     bne.l    BS_MV3
  262.     move.b    d4,BS_D8
  263.     move.b    d4,BS_D9
  264. BS_MV3:    cmpi.b    #$03,d3
  265.     bne.l    BS_MV5
  266.     tst.b    d4
  267.     bne.l    BS_MV4
  268.     bset    #$01,$00bfe001
  269.     bra.l    BS_MW1
  270.  
  271. BS_MV4:    bclr    #$01,$00bfe001
  272. BS_MV5:    cmpi.b    #$04,d3
  273.     bne.l    BS_MV6
  274.     sub.w    d4,(a1)
  275.     clr.b    $000b(a1)
  276. BS_MV6:    cmpi.b    #$05,d3
  277.     bne.l    BS_MV7
  278.     add.w    d4,(a1)
  279.     clr.b    $000b(a1)
  280. BS_MV7:    cmpi.b    #$06,d3
  281.     bne.l    BS_MV8
  282.     move.b    d4,BS_D11
  283. BS_MV8:    cmpi.b    #$07,d3
  284.     bne.l    BS_MV9
  285.     subq.b    #$1,BS_D11
  286.     beq.l    BS_MV9
  287.     move.w    d4,BS_D4
  288. BS_MV9:    cmpi.b    #$08,d3
  289.     bne.l    BS_MW0
  290.     move.b    d4,$000c(a1)
  291. BS_MW0:    cmpi.b    #$09,d3
  292.     bne.l    BS_MW1
  293.     move.b    d4,$000d(a1)
  294. BS_MW1:    lea    $0010(a3),a3
  295.     lea    $0020(a1),a1
  296.     asl.w    #$1,d7
  297.     dbf    d0,BS_MU2
  298.     addq.b    #$3,BS_D5
  299.     cmpi.b    #$30,BS_D5
  300.     bne.l    BS_MW2
  301.     move.b    #$00,BS_D5
  302.     addq.w    #$1,BS_D4
  303.     lea    BS_DATA,a0
  304.     move.w    $001e(a0),d1
  305.     cmp.w    BS_D4,d1
  306.     bne.l    BS_MW2
  307.     move.w    #$0000,BS_D4
  308. BS_MW2:    rts    
  309.  
  310. BS_MW3:    bclr    #$07,(a2)
  311.     tst.l    (a5)
  312.     beq.l    BS_MW5
  313.     clr.w    d3
  314.     move.l    (a5),a4
  315.     moveq    #$07,d7
  316. BS_MW4:    move.l    $04(a5,d3.w),(a4)+
  317.     addq.w    #$4,d3
  318.     dbf    d7,BS_MW4
  319. BS_MW5:    move.w    (a2),$0006(a1)
  320.     clr.l    d7
  321.     move.b    $0003(a2),d7
  322.     move.l    d7,d6
  323.     lsl.l    #$5,d7
  324.     lea    BS_DATA,a3
  325.     cmpi.b    #-$01,$00(a3,d7.w)
  326.     beq.l    BS_MX0
  327.     clr.l    (a5)
  328.     clr.b    $001a(a2)
  329.     clr.w    $001e(a2)
  330.     addi.l    #$00000018,d7
  331.     lsl.l    #$2,d6
  332.     lea    BS_D17,a4
  333.     move.l    -$04(a4,d6.l),d4
  334.     beq.l    BS_MW7
  335.     move.l    d4,(a1)
  336.     move.w    $00(a3,d7.l),$0004(a1)
  337.     move.b    $0002(a2),$0009(a1)
  338.     cmpi.b    #-$01,$0002(a2)
  339.     bne.l    BS_MW6
  340.     move.w    $06(a3,d7.l),$0008(a1)
  341. BS_MW6:    move.w    $04(a3,d7.l),$0008(a2)
  342.     clr.l    d6
  343.     move.w    $02(a3,d7.l),d6
  344.     add.l    d6,d4
  345.     move.l    d4,$0004(a2)
  346.     cmpi.w    #$0001,$0008(a2)
  347.     bne.l    BS_MW8
  348. BS_MW7:    move.l    #BS_D2,$0004(a2)
  349.     bra.l    BS_MW9
  350.  
  351. BS_MW8:    move.w    $0008(a2),$0004(a1)
  352.     move.l    $0004(a2),(a1)
  353. BS_MW9:    addi.w    #-$8000,d1
  354.     move.w    d1,$00dff096
  355.     rts    
  356.  
  357. BS_MX0:    move.b    #$01,$001a(a2)
  358.     clr.w    $000e(a2)
  359.     clr.w    $0010(a2)
  360.     clr.w    $0012(a2)
  361.     move.w    $16(a3,d7.w),$0014(a2)
  362.     addq.w    #$1,$0014(a2)
  363.     move.w    $0e(a3,d7.w),$0016(a2)
  364.     addq.w    #$1,$0016(a2)
  365.     move.w    #$0001,$0018(a2)
  366.     move.b    $11(a3,d7.w),$001d(a2)
  367.     move.b    $09(a3,d7.w),$001e(a2)
  368.     move.b    $04(a3,d7.w),$001f(a2)
  369.     move.b    $13(a3,d7.w),$001c(a2)
  370.     move.l    BS_D14,a4
  371.     clr.l    d3
  372.     move.b    $01(a3,d7.w),d3
  373.     lsl.l    #$6,d3
  374.     adda.l    d3,a4
  375.     move.l    a4,(a1)
  376.     move.l    a4,$0004(a2)
  377.     move.w    $02(a3,d7.w),$0004(a1)
  378.     move.w    $02(a3,d7.w),$0008(a2)
  379.     tst.b    $04(a3,d7.w)
  380.     beq.l    BS_MX2
  381.     move.l    BS_D14,a4
  382.     clr.l    d3
  383.     move.b    $05(a3,d7.w),d3
  384.     lsl.l    #$6,d3
  385.     adda.l    d3,a4
  386.     clr.w    d3
  387.     move.b    (a4),d3
  388.     addi.b    #-$80,d3
  389.     lsr.w    #$2,d3
  390.     cmpi.b    #-$01,$0002(a2)
  391.     bne.l    BS_MX1
  392.     move.b    $19(a3,d7.w),$0002(a2)
  393. BS_MX1:    clr.w    d4
  394.     move.b    $0002(a2),d4
  395.     mulu    d4,d3
  396.     lsr.w    #$6,d3
  397.     move.w    d3,$0008(a1)
  398.     bra.l    BS_MX3
  399.  
  400. BS_MX2:    move.b    $0002(a2),$0009(a1)
  401.     cmpi.b    #-$01,$0002(a2)
  402.     bne.l    BS_MX3
  403.     move.b    $19(a3,d7.w),$0009(a1)
  404. BS_MX3:    move.l    $0004(a2),a4
  405.     move.l    a4,(a5)
  406.     clr.w    d3
  407.     moveq    #$07,d4
  408. BS_MX4:    move.l    $00(a4,d3.w),$04(a5,d3.w)
  409.     addq.w    #$4,d3
  410.     dbf    d4,BS_MX4
  411.     tst.b    $11(a3,d7.w)
  412.     beq.l    BS_MW9
  413.     tst.b    $13(a3,d7.w)
  414.     beq.l    BS_MW9
  415.     clr.l    d3
  416.     move.b    $13(a3,d7.w),d3
  417.     lsr.l    #$3,d3
  418.     move.b    d3,$001c(a2)
  419.     subq.l    #$1,d3
  420. BS_MX5:    neg.b    (a4)+
  421.     dbf    d3,BS_MX5
  422.     bra.l    BS_MW9
  423.  
  424. BS_MX6:    lea    BS_D16,a4
  425.     ext.w    d4
  426.     asl.w    #$1,d4
  427.     move.w    -$02(a4,d4.w),$0006(a1)
  428.     rts    
  429.  
  430. BS_MX7:    move.l    #$00000003,d0
  431.     lea    BS_D3,a2
  432.     lea    $00dff0a0,a1
  433.     lea    BS_DATA,a3
  434.     lea    BS_D15,a5
  435. BS_MX8:    tst.b    $001a(a2)
  436.     beq.l    BS_MX9
  437.     bsr.l    BS_MY0
  438. BS_MX9:    lea    $0024(a5),a5
  439.     lea    $0020(a2),a2
  440.     lea    $0010(a1),a1
  441.     dbf    d0,BS_MX8
  442.     rts    
  443.  
  444. BS_MY0:    clr.w    d7
  445.     move.b    $0003(a2),d7
  446.     lsl.w    #$5,d7
  447.     tst.b    $001f(a2)
  448.     beq.l    BS_MY1
  449.     subq.w    #$1,$0018(a2)
  450.     bne.l    BS_MY1
  451.     clr.l    d3
  452.     move.b    $08(a3,d7.w),d3
  453.     move.w    d3,$0018(a2)
  454.     move.l    BS_D14,a4
  455.     move.b    $05(a3,d7.w),d3
  456.     lsl.l    #$6,d3
  457.     adda.l    d3,a4
  458.     move.w    $0012(a2),d3
  459.     clr.w    d4
  460.     move.b    $00(a4,d3.w),d4
  461.     addi.b    #-$80,d4
  462.     lsr.w    #$2,d4
  463.     clr.w    d3
  464.     move.b    $0002(a2),d3
  465.     mulu    d3,d4
  466.     lsr.w    #$6,d4
  467.     move.w    d4,$0008(a1)
  468.     addq.w    #$1,$0012(a2)
  469.     move.w    $06(a3,d7.w),d4
  470.     cmp.w    $0012(a2),d4
  471.     bne.l    BS_MY1
  472.     clr.w    $0012(a2)
  473.     cmpi.b    #$01,$001f(a2)
  474.     bne.l    BS_MY1
  475.     clr.b    $001f(a2)
  476. BS_MY1:    tst.b    $001e(a2)
  477.     beq.l    BS_MY3
  478.     subq.w    #$1,$0016(a2)
  479.     bne.l    BS_MY3
  480.     clr.l    d3
  481.     move.b    $10(a3,d7.w),d3
  482.     move.w    d3,$0016(a2)
  483.     move.l    BS_D14,a4
  484.     move.b    $0a(a3,d7.w),d3
  485.     lsl.l    #$6,d3
  486.     adda.l    d3,a4
  487.     move.w    $0010(a2),d3
  488.     clr.l    d4
  489.     move.b    $00(a4,d3.w),d4
  490.     ext.w    d4
  491.     ext.l    d4
  492.     clr.l    d5
  493.     move.b    $0b(a3,d7.w),d5
  494.     tst.b    d5
  495.     beq.l    BS_MY2
  496.     divs    d5,d4
  497. BS_MY2:    move.w    (a2),d5
  498.     add.w    d4,d5
  499.     move.w    d5,$0006(a1)
  500.     addq.w    #$1,$0010(a2)
  501.     move.w    $0c(a3,d7.w),d3
  502.     cmp.w    $0010(a2),d3
  503.     bne.l    BS_MY3
  504.     clr.w    $0010(a2)
  505.     cmpi.b    #$01,$001e(a2)
  506.     bne.l    BS_MY3
  507.     clr.b    $001e(a2)
  508. BS_MY3:    tst.b    $001d(a2)
  509.     beq.l    BS_MY8
  510.     subq.w    #$1,$0014(a2)
  511.     bne.l    BS_MY8
  512.     tst.l    (a5)
  513.     beq.l    BS_MY8
  514.     clr.l    d3
  515.     move.b    $18(a3,d7.w),d3
  516.     move.w    d3,$0014(a2)
  517.     move.l    BS_D14,a4
  518.     move.b    $12(a3,d7.w),d3
  519.     lsl.l    #$6,d3
  520.     adda.l    d3,a4
  521.     move.w    $000e(a2),d3
  522.     clr.l    d4
  523.     move.b    $00(a4,d3.w),d4
  524.     move.l    (a5),a4
  525.     addi.b    #-$80,d4
  526.     lsr.l    #$3,d4
  527.     clr.l    d3
  528.     move.b    $001c(a2),d3
  529.     move.b    d4,$001c(a2)
  530.     adda.l    d3,a4
  531.     move.l    a5,a6
  532.     adda.l    d3,a6
  533.     addq.l    #$4,a6
  534.     cmp.b    d3,d4
  535.     beq.l    BS_MY7
  536.     bgt.l    BS_MY5
  537.     sub.l    d4,d3
  538.     subq.l    #$1,d3
  539. BS_MY4:    move.b    -(a6),d4
  540.     move.b    d4,-(a4)
  541.     dbf    d3,BS_MY4
  542.     bra.l    BS_MY7
  543.  
  544. BS_MY5:    sub.l    d3,d4
  545.     subq.l    #$1,d4
  546. BS_MY6:    move.b    (a6)+,d3
  547.     neg.b    d3
  548.     move.b    d3,(a4)+
  549.     dbf    d4,BS_MY6
  550. BS_MY7:    addq.w    #$1,$000e(a2)
  551.     move.w    $14(a3,d7.w),d3
  552.     cmp.w    $000e(a2),d3
  553.     bne.l    BS_MY8
  554.     clr.w    $000e(a2)
  555.     cmpi.b    #$01,$001d(a2)
  556.     bne.l    BS_MY8
  557.     clr.b    $001d(a2)
  558. BS_MY8:    rts    
  559.  
  560. BS_D1:    blk.b    8,$00
  561.     dc.b    $02,$7f
  562.     blk.b    8,$00
  563.     dc.l    BS_Music
  564. BS_D2:    blk.b    2,$00
  565. BS_D3:    blk.b    4,$00
  566.     dc.l    BS_D2
  567.     dc.b    $00,$01
  568.     blk.b    26,$00
  569.     dc.l    BS_D2
  570.     dc.b    $00,$01
  571.     blk.b    26,$00
  572.     dc.l    BS_D2
  573.     dc.b    $00,$01
  574.     blk.b    26,$00
  575.     dc.l    BS_D2
  576.     dc.b    $00,$01
  577.     blk.b    22,$00
  578. BS_D4:    blk.b    2,$00
  579. BS_D5:    blk.b    1,$00
  580. BS_D6:    blk.b    1,$00
  581. BS_D7:    blk.b    1,$00
  582. BS_D8:    dc.b    $01
  583. BS_D9:    dc.b    $06
  584. BS_D10:    dc.b    $01
  585. BS_D11:    dc.b    $01
  586. BS_D12:    blk.b    1,$00
  587. BS_D13:    blk.b    2,$00
  588. BS_D14:    blk.b    4,$00
  589. BS_D15:    blk.b    144,$00
  590.     dc.b    $1a,$c0,$19,$40,$17,$c0
  591.     dc.b    $16,$80,$15,$40,$14,$00
  592.     dc.b    $12,$e0,$11,$e0,$10,$e0
  593.     dc.b    $0f,$e0,$0f,$00,$0e,$20
  594.     dc.b    $0d,$60,$0c,$a0,$0b,$e0
  595.     dc.b    $0b,$40,$0a,$a0,$0a,$00
  596.     dc.b    $09,$70,$08,$f0,$08,$70
  597.     dc.b    $07,$f0,$07,$80,$07,$10
  598.     dc.b    $06,$b0,$06,$50,$05,$f0
  599.     dc.b    $05,$a0,$05,$50,$05,$00
  600.     dc.b    $04,$b8,$04,$78,$04,$38
  601.     dc.b    $03,$f8,$03,$c0,$03,$88
  602. BS_D16:    dc.b    $03,$58,$03,$28,$02,$f8
  603.     dc.b    $02,$d0,$02,$a8,$02,$80
  604.     dc.b    $02,$5c,$02,$3c,$02,$1c
  605.     dc.b    $01,$fc,$01,$e0,$01,$c4
  606.     dc.b    $01,$ac,$01,$94,$01,$7c
  607.     dc.b    $01,$68,$01,$54,$01,$40
  608.     dc.b    $01,$2e,$01,$1e,$01,$0e
  609.     dc.b    $00,$fe,$00,$f0,$00,$e2
  610.     dc.b    $00,$d6,$00,$ca,$00,$be
  611.     dc.b    $00,$b4,$00,$aa,$00,$a0
  612.     dc.b    $00,$97,$00,$8f,$00,$87
  613.     dc.b    $00,$7f,$00,$78,$00,$71
  614.     dc.b    $00,$6b,$00,$65,$00,$5f
  615.     dc.b    $00,$5a,$00,$55,$00,$50
  616.     dc.b    $00,$4c,$00,$48,$00,$44
  617.     dc.b    $00,$40,$00,$3c,$00,$39
  618. BS_D17:    dc.l    BS_DATAEND
  619.     dc.l    BS_DATAEND
  620.     dc.l    BS_DATAEND
  621.     dc.l    BS_DATAEND
  622.     dc.l    BS_DATAEND
  623.     dc.l    BS_DATAEND
  624.     dc.l    BS_DATAEND
  625.     dc.l    BS_DATAEND
  626.     dc.l    BS_DATAEND
  627.     dc.l    BS_DATAEND
  628.     dc.l    BS_DATAEND
  629.     dc.l    BS_DATAEND
  630.     dc.l    BS_DATAEND
  631.     dc.l    BS_DATAEND
  632.     dc.l    BS_DATAEND
  633. **************************************
  634. **PLACE THE MODULE AT THE BLK.B !!! **
  635. **************************************
  636. BS_DATA:
  637.         BLK.B    0,0
  638. BS_DATAEND:    dc.b    $c8,$ca,$cd,$cf,$cf,$d6
  639.  
  640.  
  641.  
  642.  
  643. oldirq:        dc.l    0
  644. gfxbase:    dc.l    0
  645. gfxname:    dc.b "graphics.library",0
  646. even
  647.  
  648. DMAcon:        equ    $dff096
  649. Intena:        equ    $dff09a
  650. cop1lch:    equ    $dff080
  651. ciaa001:    equ    $bfe001
  652. dmaconr:    equ    $dff002
  653. vhposr:        equ    $dff006
  654. grabasis:    dc.l    0
  655. oldcopperlist:    dc.l    0
  656. copper:
  657.     DC.W    $1007,$FFFE,$100,$0000
  658.  
  659.     DC.W    $8009,$FFFE,$180,$001
  660.     DC.W    $8109,$FFFE,$180,$003
  661.     DC.W    $8209,$FFFE,$180,$005
  662.     DC.W    $8309,$FFFE,$180,$007
  663.     DC.W    $8409,$FFFE,$180,$009
  664.     DC.W    $8509,$FFFE,$180,$00B
  665.     DC.W    $8609,$FFFE,$180,$00D
  666.     DC.W    $8709,$FFFE,$180,$00F
  667.     DC.W    $8809,$FFFE,$180,$00D
  668.     DC.W    $8909,$FFFE,$180,$00B
  669.     DC.W    $8A09,$FFFE,$180,$009
  670.     DC.W    $8B09,$FFFE,$180,$007
  671.     DC.W    $8C09,$FFFE,$180,$005
  672.     DC.W    $8D09,$FFFE,$180,$003
  673.     DC.W    $8E09,$FFFE,$180,$001
  674.     DC.W    $8F09,$FFFE,$180,$000
  675.     DC.W    $FFFF,$FFFE
  676. granaam:    dc.b "graphics.library",00
  677.         even
  678.